home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / mh / mh-6.8 / papers / doclib / diss.sty < prev    next >
Encoding:
Text File  |  1992-12-14  |  62.0 KB  |  2,165 lines
  1. % UCI Dissertation Style for AmSTeX.
  2. % @(#)$Id: diss.sty,v 1.3 1990/04/05 15:20:23 sources Exp $
  3.  
  4. % Tim Morgan with many suggestions, bug fixes, etc, from Marshall Rose
  5. % Based originally on Michael Spivak's AMSPPT.STY.
  6.  
  7. % When edits are made to this file, the version number should be incremented.
  8. \def\version{103}
  9. \let\fmtversion=\version    % These two control sequences are defined
  10. \def\fmtname{dissertation}    % in plain.tex, so we do it here too.
  11.  
  12. % Assumes the following hidden definitions from plain.tex:
  13. %    \z@ is defined from plain.tex as 0pt (and magically can
  14. %        be used as the integer constant 0 also).
  15. %    \p@ is the same, but 1pt
  16. %    \@ne is 1
  17. %    \m@ne is -1
  18. %    \tw@ is 2
  19. %    \thr@@ is 3
  20. %    \@m is 1000
  21. %    \@M is 10000
  22. % And the following scratch register definitions:
  23. %    \dimen@ is \dimendef'd to be \dimen0
  24. %    \skip@  is \skipdef'd to be \skip0
  25. %    \count@ is \count255
  26.  
  27. \catcode`\@=11             % So we can use a special character
  28.  
  29.  
  30. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  31. %  PARAMETERS DIFFERENT THAN IN PLAIN  %
  32. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  33.  
  34. % These are words which TeX doesn't hyphenate perfectly.
  35. % Unfortunately, the plural forms must be included also.
  36. \hyphenation{com-put-er com-mun ap-pen-dix cart-wheel data-base Dijk-stra}
  37. \hyphenation{in-fra-struc-ture man-u-script mi-cro-fiche para-mil-i-tary}
  38. \hyphenation{post-am-ble pre-am-ble sub-scrib-er wave-guide sub-scrib-ers}
  39. \hyphenation{com-put-ers cart-wheels data-bases in-fra-struc-tures}
  40. \hyphenation{man-u-scripts mi-cro-fiches post-am-bles pre-am-bles}
  41. \hyphenation{buf-fer buf-fers des-ig-na-ted par-a-graph par-a-graphs}
  42. \hyphenation{key-stroke key-strokes usu-al-ly}
  43.  
  44.  
  45. \def\normal@topskip{0.48cm}
  46. \topskip=\normal@topskip     % For correct page positioning, do NOT
  47. \hoffset=0.5in             % change any of these values!!!
  48. \voffset=0.07cm
  49. \hsize=15.2cm
  50. \vsize=22.2cm
  51.  
  52. \normallineskiplimit=\p@     % Min. dist. btw. lines.
  53. \parindent=1cm             % Normal indentation.
  54. \hfuzz=0.115\p@             % So we hear fewer complaints.  Good up to
  55. \vfuzz=0.115\p@             % 300 dpi.
  56.  
  57. \pretolerance=200         % At 12pt, these margins are kind of narrow
  58. \tolerance=300             % so we have to be more tolerant.
  59. \clubpenalty=\@M         % Never allow these.
  60. \widowpenalty=\@M
  61. \newlinechar=`\^^J         % For writing output to tty.
  62. \uchyph=\z@             % Don't take any chances.
  63. \brokenpenalty=\@M         % Never hyphenate last line on a page.
  64. \newcount\defaultinterlinepenalty    % This probably won't make any
  65. \defaultinterlinepenalty=\thr@@        % difference, so why not??
  66. \interlinepenalty=\defaultinterlinepenalty
  67.  
  68.  
  69. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  70. %  PARAMETERS DIFFERENT from AmSTeX  %
  71. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  72.  
  73. \TagsOnRight             % Set tags like a sane person does
  74.  
  75.  
  76. %%%%%%%%%%%%%%%%%%%%%%%%
  77. %  EXTRA FONTS NEEDED  %
  78. %%%%%%%%%%%%%%%%%%%%%%%%
  79.  
  80. \newif\ifolddigits
  81. \olddigitsfalse            % Allow use of amcscod10 for citations
  82. \def\useolddigits{%
  83.     \olddigitstrue
  84.     \oktell{Old Digits Mode}%
  85. }
  86.  
  87. \font\sixrm=cmr6 \font\sixbf=cmbx6
  88. \font\sixi=cmmi6 \skewchar\sixi='177
  89. \font\sixsy=cmsy6 \skewchar\sixsy='60
  90.  
  91. \font\eightrm=cmr8 \font\eightsl=cmsl8 \font\eightit=cmti8
  92. \font\eightsy=cmsy8 \skewchar\eightsy='60
  93. \skewchar\eightsy='60 \font\eightbf=cmbx8
  94. \font\eightex=cmex10 at 8\p@
  95. \font\eighti=cmmi8 \skewchar\eighti='177
  96.  
  97. \font\ninerm=cmr9  \font\nineit=cmti9
  98. \font\ninei=cmmi9   \skewchar\ninei='177
  99. \font\ninesy=cmsy9 \skewchar\ninesy='60
  100. \font\ninesl=cmsl9 \font\ninebf=cmbx9
  101.  
  102. \font\twelvecsc=cmcsc10 scaled \magstep1
  103. \font\tencsc=cmcsc10
  104. \font\eightcsc=cmcsc10 at 8\p@
  105. \font\elevencsc=cmcsc10 scaled \magstephalf
  106. \font\ninecsc=cmcsc10 at 9\p@
  107.  
  108. \let\tencscod=\tencsc
  109. \let\eightcscod=\eightcsc
  110.  
  111. \font\eightsf=cmss10 at 8\p@
  112. \font\tensf=cmss10
  113. \font\twelvesf=cmss10 at 12\p@
  114.  
  115. \font\twelvett=cmtt10 scaled \magstep1
  116. \font\eighttt=cmtt10 at 8\p@    % \tentt is predefined in plain.tex
  117.  
  118. \font\twelvebti=cmbti at 12\p@
  119. \font\tenbti=cmbti
  120. \font\eightbti=cmbti at 8\p@
  121.  
  122. \font\twelveex=cmex10 scaled \magstep1 \font\twelverm=cmr10 scaled \magstep1
  123. \font\twelvesl=cmsl10 scaled \magstep1 \font\twelvebf=cmbx10 scaled \magstep1
  124. \font\twelvei=cmmi10 scaled \magstep1  \skewchar\twelvei='177
  125. \font\twelvesy=cmsy10 scaled \magstep1 \skewchar\twelvesy='60
  126. \font\twelveit=cmti10 scaled \magstep1
  127.  
  128. \font\twelvechap@font=cmssbx10 at 14\p@
  129. \font\twelvesec@font=cmss10 at 13\p@
  130. \font\twelvesubsec@font=cmssi10 scaled \magstep1
  131.  
  132. \font\tenchap@font=cmssbx10 scaled \magstep1
  133. \font\tensec@font=cmssbx10 scaled \magstephalf
  134. \font\tensubsec@font=cmssi10
  135.  
  136. \font\eightchap@font=cmssbx10
  137. \font\eightsec@font=cmss10 at 9\p@
  138. \font\eightsubsec@font=cmssqi8
  139.  
  140. % Font selection
  141. \newcount\font@no
  142. \def\curfont{\ifcase\font@no\rm\or\it\or\sl\or\bf\or\tt\or\csc\or\bti\or\sf
  143.     \else\errmessage{Internal font confusion}\fi}
  144.  
  145. %%%%%%%%%%%%%%%%%%%%%
  146. %  SPACING CONTROL  %
  147. %%%%%%%%%%%%%%%%%%%%%
  148.  
  149. \newskip\normalabovedisplayskip
  150. \newskip\normalbelowdisplayskip
  151. \newskip\normalabovedisplayshortskip
  152. \newskip\normalbelowdisplayshortskip
  153. \newdimen\normalparskip \normalparskip=22.5\p@
  154. \newdimen\parstretch    \parstretch=8\p@
  155.  
  156. \newif\ifsinglespacing    % Tells if we are currently in single space mode
  157. \newif\ifhalfspacing    % Special version of singlespacing, a little bigger.
  158.  
  159. % Actually tell TeX what spacing is wanted
  160. \def\setbaselines{%
  161.     \baselineskip=\normalbaselineskip
  162.     \abovedisplayskip=\normalabovedisplayskip
  163.     \belowdisplayskip=\normalbelowdisplayskip
  164.     \abovedisplayshortskip=\normalabovedisplayshortskip
  165.     \belowdisplayshortskip=\normalbelowdisplayshortskip
  166.     % Compute \parskip for even paragraph spacing at all pt sizes
  167.     \dimen@=\normalparskip
  168.     \advance\dimen@ by -\normalbaselineskip
  169.     \parskip=\dimen@ plus\parstretch
  170. }
  171.  
  172. % Go from double to single spacing
  173. \def\reducespacing{%
  174.     \normalbaselineskip=0.64\normalbaselineskip
  175.     \normalabovedisplayskip=0.64\normalabovedisplayskip
  176.     \normalbelowdisplayskip=0.64\normalbelowdisplayskip
  177.     \normalabovedisplayshortskip=0.64\normalabovedisplayshortskip
  178.     \normalbelowdisplayshortskip=0.64\normalbelowdisplayshortskip
  179. }
  180.  
  181. % Set halfspacing baseline etc starting from singlespacing mode
  182. \def\sethalfspacing{%
  183.     \normalbaselineskip=1.28125\normalbaselineskip
  184.     \abovedisplayskip=1.28125\abovedisplayskip
  185.     \belowdisplayskip=1.28125\belowdisplayskip
  186.     \abovedisplayshortskip=1.28125\abovedisplayshortskip
  187.     \belowdisplayshortskip=1.28125\belowdisplayshortskip
  188. }
  189.  
  190. % Go to single spacing if we're not there already
  191. \def\singlespace{%
  192.     \normalspacing \reducespacing
  193.     \halfspacingfalse \singlespacingtrue
  194.     \setbaselines
  195. }
  196.  
  197. % Go to 1-1/2 spacing.
  198. \def\halfspace{%
  199.     \normalspacing \reducespacing \sethalfspacing
  200.     \singlespacingtrue \halfspacingtrue
  201.     \setbaselines
  202. }
  203.  
  204. % Go to normal, doublespacing mode
  205. \def\doublespace{%
  206.     \normalspacing
  207.     \singlespacingfalse \halfspacingfalse
  208.     \setbaselines
  209. }
  210.  
  211. % Make sure we're doing the spacing we're supposed to be.
  212. \def\setspacing{%
  213.   \normalspacing
  214.   \ifsinglespacing
  215.     \reducespacing
  216.     \ifhalfspacing \sethalfspacing \fi
  217.   \fi
  218.   \setbaselines
  219. }
  220.  
  221.  
  222. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  223. %  FOUR DIFFERENT POINT SIZES  %
  224. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  225.  
  226. \def\twelvepoint{%
  227.   \def\big@@AmS{10.2\p@}%
  228.   \def\Big@@AmS{13.8\p@}%
  229.   \def\bigg@@AmS{17.4\p@}%
  230.   \def\Bigg@@AmS{21.0\p@}%
  231.   \let\smallertype=\tenpoint
  232.   \let\curtype=\twelvepoint
  233.   \def\biggertype{\errmessage{No larger point size available}}%
  234.   \def\normalspacing{%
  235.     \normalbaselineskip=22.8\p@
  236.     \normalabovedisplayskip=14.5\p@ plus 3\p@ minus 9\p@
  237.     \normalbelowdisplayskip=14.5\p@ plus 3\p@ minus 9\p@
  238.     \normalabovedisplayshortskip=\z@ plus 4\p@
  239.     \normalbelowdisplayshortskip=9\p@ plus 4\p@ minus 5\p@
  240.   }%
  241.   \def\rm{\font@no=0\fam\z@\twelverm}%
  242.   \def\it{\font@no=1\fam\itfam\twelveit}%
  243.   \def\sl{\font@no=2\fam\slfam\twelvesl}%
  244.   \def\bf{\font@no=3\fam\bffam\twelvebf}%
  245.   \def\tt{\font@no=4\fam\ttfam\twelvett \spaceskip.5em plus.25em
  246.     minus.15em }%
  247.   \def\csc{\font@no=5\twelvecsc}%
  248.   \def\bti{\font@no=6\twelvebti}%
  249.   \def\sf{\font@no=7\twelvesf}%
  250.   \let\sc=\csc
  251.   \ifolddigits
  252.     \let\cite@font=\tencscod
  253.   \else
  254.     \let\cite@font=\elevencsc
  255.   \fi
  256.   \textfont\z@=\twelverm \scriptfont\z@=\ninerm   \scriptscriptfont\z@=\sixrm
  257.   \textfont\@ne=\twelvei \scriptfont\@ne=\ninei   \scriptscriptfont\@ne=\sixi
  258.   \textfont\tw@=\twelvesy \scriptfont\tw@=\ninesy \scriptscriptfont\tw@=\sixsy
  259.   \textfont\thr@@=\twelveex \scriptfont\thr@@=\twelveex
  260.     \scriptscriptfont\thr@@=\twelveex
  261.   \textfont\itfam=\twelveit
  262.   \textfont\slfam=\twelvesl
  263.   \textfont\ttfam=\twelvett
  264.   \textfont\bffam=\twelvebf \scriptfont\bffam=\ninebf
  265.     \scriptscriptfont\bffam=\sixbf
  266.   \let\chap@font=\twelvechap@font
  267.   \let\sec@font=\twelvesec@font
  268.   \let\subsec@font=\twelvesubsec@font
  269.   \let\subsubsec@font=\twelvebf
  270.   \def\oldstyle{\fam1\twelvei}%
  271.   \setspacing
  272.   \curfont
  273.   \ifundefined{everypointsize}\else\everypointsize{twelve}{12}\fi
  274. }
  275.  
  276. \def\tenpoint{%
  277.   \def\big@@AmS{8.5\p@}%
  278.   \def\Big@@AmS{11.5\p@}%
  279.   \def\bigg@@AmS{14.5\p@}%
  280.   \def\Bigg@@AmS{17.5\p@}%
  281.   \let\smallertype=\eightpoint
  282.   \let\curtype=\tenpoint
  283.   \let\biggertype=\twelvepoint
  284.   \def\normalspacing{%
  285.     \normalbaselineskip=18.9\p@
  286.     \normalabovedisplayskip=12\p@ plus 3\p@ minus 9\p@
  287.     \normalbelowdisplayskip=12\p@ plus 3\p@ minus 9\p@
  288.     \normalabovedisplayshortskip=\z@ plus 3\p@
  289.     \normalbelowdisplayshortskip=7\p@ plus 3\p@ minus 4\p@
  290.   }%
  291.   \def\rm{\font@no=0\fam\z@\tenrm}%
  292.   \def\it{\font@no=1\fam\itfam\tenit}%
  293.   \def\sl{\font@no=2\fam\slfam\tensl}%
  294.   \def\bf{\font@no=3\fam\bffam\tenbf}%
  295.   \def\tt{\font@no=4\fam\ttfam\tentt \spaceskip.5em plus.25em
  296.     minus.15em }%
  297.   \def\csc{\font@no=5\tencsc}
  298.   \def\bti{\font@no=6\tenbti}%
  299.   \def\sf{\font@no=7\tensf}%
  300.   \let\sc=\csc
  301.   \ifolddigits
  302.     \let\cite@font=\eightcscod
  303.   \else
  304.     \let\cite@font=\ninecsc
  305.   \fi
  306.   \textfont\z@=\tenrm \scriptfont\z@=\sevenrm \scriptscriptfont\z@=\fiverm
  307.   \textfont\@ne=\teni \scriptfont\@ne=\seveni \scriptscriptfont\@ne=\fivei
  308.   \textfont\tw@=\tensy \scriptfont\tw@=\sevensy \scriptscriptfont\tw@=\fivesy
  309.   \textfont\thr@@=\tenex \scriptfont\thr@@=\tenex
  310.     \scriptscriptfont\thr@@=\tenex
  311.   \textfont\itfam=\tenit
  312.   \textfont\slfam=\tensl
  313.   \textfont\ttfam=\tentt
  314.   \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf
  315.     \scriptscriptfont\bffam=\fivebf
  316.   \let\chap@font=\tenchap@font
  317.   \let\sec@font=\tensec@font
  318.   \let\subsec@font=\tensubsec@font
  319.   \let\subsubsec@font=\tenbf
  320.   \def\oldstyle{\fam1\teni}%
  321.   \setspacing
  322.   \curfont
  323.   \ifundefined{everypointsize}\else\everypointsize{ten}{10}\fi
  324. }
  325.  
  326. \def\eightpoint{%
  327.   \def\big@@AmS{6.8\p@}%
  328.   \def\Big@@AmS{9.2\p@}%
  329.   \def\bigg@@AmS{11.6\p@}%
  330.   \def\Bigg@@AmS{14.0\p@}%
  331.   \def\smallertype{\errmessage{No smaller point size available}}%
  332.   \let\curtype=\eightpoint
  333.   \let\biggertype=\tenpoint
  334.   \def\normalspacing{%
  335.     \normalbaselineskip=15\p@
  336.     \normalabovedisplayskip=10\p@ plus 2.4\p@ minus 7.2\p@
  337.     \normalbelowdisplayskip=10\p@ plus 2.4\p@ minus 7.2\p@
  338.     \normalabovedisplayshortskip=\z@ plus 2.4\p@
  339.     \normalbelowdisplayshortskip=55.6\p@ plus 2.4\p@ minus 3.2\p@
  340.   }%
  341.   \def\rm{\font@no=0\fam\z@\eightrm}%
  342.   \def\it{\font@no=1\fam\itfam\eightit}%
  343.   \def\sl{\font@no=2\fam\slfam\eightsl}%
  344.   \def\bf{\font@no=3\fam\bffam\eightbf}%
  345.   \def\tt{\font@no=4\fam\ttfam\eighttt \spaceskip.5em plus.25em
  346.     minus.15em }%
  347.   \def\csc{\font@no=5\eightcsc}%
  348.   \def\bti{\font@no=6\eightbti}%
  349.   \def\sf{\font@no=7\eightsf}%
  350.   \let\sc=\csc
  351.   \def\cite@font{\errmessage{You may not do citations in 8 point}}
  352.   \textfont\z@=\eightrm \scriptfont\z@=\sixrm \scriptscriptfont\z@=\fiverm
  353.   \textfont\@ne=\eighti \scriptfont\@ne=\sixi \scriptscriptfont\@ne=\fivei
  354.   \textfont\tw@=\eightsy \scriptfont\tw@=\sixsy \scriptscriptfont\tw@=\fivesy
  355.   \textfont\thr@@=\eightex \scriptfont\thr@@=\eightex
  356.     \scriptscriptfont\thr@@=\eightex
  357.   \textfont\itfam=\eightit
  358.   \textfont\slfam=\eightsl
  359.   \textfont\ttfam=\eighttt
  360.   \textfont\bffam=\eightbf \scriptfont\bffam=\sixbf
  361.     \scriptscriptfont\bffam=\fivebf
  362.   \let\chap@font=\eightchap@font
  363.   \let\sec@font=\eightsec@font
  364.   \let\subsec@font=\eightsubsec@font
  365.   \let\subsubsec@font=\eightbf
  366.   \def\oldstyle{\fam1\eighti}%
  367.   \setspacing
  368.   \curfont
  369.   \ifundefined{everypointsize}\else\everypointsize{eight}{10}\fi
  370. }
  371.  
  372.  
  373. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  374. %  TABLE of CONTENTS Macros  %
  375. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  376.  
  377. % This set of macros allows you to build a table of contents for a document
  378. % automatically in TeX.  There are only three control sequences which you
  379. % will need to use.  The first is \inicont, which initializes the macros.
  380. % This package works by writing the appropriate lines into a file called
  381. % \jobname.toc in your account.  This file is read by \printcontents or
  382. % by \printcont in PRINT-PRELIM.TEX.
  383. %
  384. \newwrite\cont@file            % Get a free channel to write to
  385. \newif\ifcont@closed
  386. \cont@closedtrue            % Haven't opened contents file yet
  387. \newwrite\fig@file
  388. \newwrite\tab@file
  389. \newif\iffig@closed
  390. \fig@closedtrue                % Or the list of figures file
  391. \newif\iftab@closed
  392. \tab@closedtrue                % Or the tables file
  393.  
  394. \def\contitle{\jobname.toc}        % Default name of contents file
  395. \def\figtitle{\jobname.lof}        %  ditto for figures file
  396. \def\tabtitle{\jobname.lot}        %  ditto for tables file
  397.  
  398. % Make sure the contents file is open before writing to it
  399. \def\opencontfile{%
  400.     \ifcont@closed
  401.     \immediate\openout\cont@file=\contitle
  402.     \cont@closedfalse
  403.     \fi
  404. }
  405.  
  406. %
  407. % This control sequence adds its argument to the table of contents.
  408. %
  409. \def\content#1{%
  410.     \opencontfile
  411.     \let\\=\space
  412.     \write\cont@file{\string\Z{#1}{\the\pageno}}%
  413. }
  414.  
  415. %
  416. % This control sequence is the same as \content except that the first
  417. % box written will have two leading spaces to indent it.
  418. %
  419. \def\subcontent#1{%
  420.     \opencontfile
  421.     \let\\=\space
  422.     \write\cont@file{\string\Z{\string\hskip \parindent{}#1}{\the\pageno}}%
  423. }
  424.  
  425. % And the same thing for sub-sections
  426. \def\subsubcontent#1{%
  427.     \opencontfile
  428.     \let\\=\space
  429.     \write\cont@file{\string\Z{\string\hskip 2\parindent{}#1}{\the\pageno}}%
  430. }
  431.  
  432. % And the same thing for sub-sub-sections
  433. \def\subsubsubcontent#1{%
  434.     \opencontfile
  435.     \let\\=\space
  436.     \write\cont@file{\string\Z{\string\hskip 3\parindent{}#1}{\the\pageno}}%
  437. }
  438.  
  439. % Simple table-of-contents printer for \articlestyle.
  440. % For dissertations, use the one in print-prelim.tex.
  441. % Use this macro as the last thing in your report, since it makes
  442. % the page numbers be in romannumerals at the bottom of the page.
  443. \def\printcontents{%
  444.     \closeout \cont@file
  445.     \null\vfill\supereject    % Close output, end last page
  446.     \twelvepoint\rm    % Make sure we're in normal mode
  447.     \pageno=\m@ne    % Contents get roman numerals.
  448.     \plain@page@numbers    % Put page #s at bottom only
  449.     \oktell{Table of Contents}
  450.     \null \vskip .8in minus\baselineskip
  451.     \centerline{\chap@font Contents}
  452.     \vskip \tw@\baselineskip
  453.     \rightline{Page}
  454.     \begingroup  % Temporarily change \baselineskip to avoid
  455.          % underfull \vbox's during output errors.
  456.     \baselineskip=\@ne\baselineskip plus .05\baselineskip
  457.     \def\Z##1##2{\line{\ignorespaces##1\leaders
  458.         \hbox to.7em{.\hfil}\hfil\hbox to2em{\hss##2}}}
  459.     \catcode`@=11
  460.     \let\\=\space
  461.     \input\contitle    \relax
  462.     \endgroup    % Also undoes the \catcode change
  463. }
  464.  
  465.  
  466. %%%%%%%%%%%%%%%%%%%%%%%%
  467. %  NUMBERED FOOTNOTES  %
  468. %%%%%%%%%%%%%%%%%%%%%%%%
  469.  
  470. % First, modify \vfootnote from Plain to use smallertype and singlespace
  471. \def\vfootnote#1{%
  472.     \insert\footins\bgroup\tenpoint\singlespace
  473.     \interlinepenalty\interfootnotelinepenalty
  474.     \splittopskip\ht\strutbox % top baseline for broken footnotes
  475.     \splitmaxdepth\dp\strutbox \floatingpenalty\@MM
  476.     \leftskip\z@skip \rightskip\z@skip \spaceskip\z@skip \xspaceskip\z@skip
  477.     \parindent=.13in
  478.     \textindent{#1}\footstrut\futurelet\next\fo@t
  479. }
  480.  
  481. % Allocate a counter for the numbered footnotes
  482. \newcount\note@count \note@count=\@ne
  483.  
  484. \def\nfootnote#1{%
  485.     \unskip\footnote{$^{\number\note@count}$}{#1}%
  486.     \global\advance\note@count by\@ne
  487. }
  488.  
  489. % Same except that trailing period or comma is ``tucked'' under
  490. % the note mark.  \ntucknote provides auto numbering.
  491. \def\ntucknote#1#2{\nfootnote{#1}\llap{#2}}
  492. \def\tucknote#1#2#3{\footnote{#1}{#2}\llap{#3}}
  493.  
  494.  
  495. %%%%%%%%%%%%%%%%%%%%
  496. %  UTILITY MACROS  %
  497. %%%%%%%%%%%%%%%%%%%%
  498.  
  499. % Insert a discretionary hyphen.  For use in restricted
  500. % horizontal mode, as in the bibliography.
  501. \def\hyphenbreak{\discretionary{-}{}{-}}
  502.  
  503. % Check if a macro name is currently undefined (from The TeXbook)
  504. \def\ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax}
  505.  
  506. % Terminal input and output routines and auxilary stuff
  507. \newwrite\undef@out@chan    % Allocate a channel for the tty
  508. \def\tell#1{{\let\\=\space\immediate\write\undef@out@chan{#1}}}
  509. \def\ask#1{\read-16 to #1}    % Read from tty w/o prompt
  510.  
  511. % Sanitize a string before \write'ing it.
  512. % Call with \unexpanded{op}{msg}
  513. % Modified from version in The TeXbook, originally by Todd Allen
  514. \long\def\unexpanded#1#2{%
  515.     \def\finwrite{#1}%
  516.     {\aftergroup\finwrite\aftergroup{\sanitize@uci#2\endsanity@uci}}%
  517. }
  518. \def\sanitize@uci{\futurelet\next@uci\sanswitch@uci}
  519. \def\sanswitch@uci{\ifx\next@uci\endsanity@uci
  520.      \else\ifx\next@uci\\\aftergroup\space\let\next@uci=\eat@uci
  521.      \else\ifcat\noexpand\next@uci\space\aftergroup\space\let\next@uci=\eat@uci
  522.      \else\ifcat\noexpand\next@uci\bgroup\aftergroup{\let\next@uci=\eat@uci
  523.      \else\ifcat\noexpand\next@uci\egroup\aftergroup}\let\next@uci=\eat@uci
  524.      \else\let\next@uci=\copytoken@uci\fi\fi\fi\fi\fi \next@uci
  525. }
  526. \def\eat@uci{\afterassignment\sanitize@uci \let\next@uci= }
  527. \long\def\copytoken@uci#1{%
  528.     \ifcat\noexpand#1\relax\aftergroup\noexpand
  529.     \else\ifcat\noexpand#1\noexpand~\aftergroup\noexpand
  530.     \fi
  531.     \fi
  532.     \aftergroup#1\sanitize@uci
  533. }
  534. \def\endsanity@uci\endsanity@uci{}
  535.  
  536. % Now use the sanity stuff to make a sane tell command.  This macro
  537. % actually takes one argument, but since it's the last for \unexpanded,
  538. % we avoid scanning it twice by not picking it up here.
  539. \def\sanetell{\unexpanded{\immediate\write\undef@out@chan}}
  540.  
  541. % Produce verbatim listings of various sorts
  542.  
  543. \def\uncatcodespecials{\def\do##1{\catcode`##1=12 } \dospecials}
  544. \def\setupverbatim{%
  545.     \par \tt \spaceskip=\z@    % Want fixed tt spacing now
  546.     \obeylines \uncatcodespecials \obeyspaces \verbatimdefs
  547. }
  548.  
  549. % This macro turns on verbatim mode until ?endverbatim is seen.
  550. \def\verbatim{%
  551.     \begingroup \setupverbatim
  552.     \parskip=\z@ plus .05\baselineskip \parindent=\z@
  553.     \catcode`\ =13 \catcode`\^^M=13 \catcode`\?=\z@
  554.     \verbatimgobble
  555. }
  556. {\catcode`\^^M=13{\catcode`\ =13\gdef\verbatimdefs{\def^^M{\ \par}\let =\ }}
  557.   \gdef\verbatimgobble#1^^M{}%
  558. }
  559.  
  560. % This defines ?endverbatim to end the group which begins with \verbatim
  561. \let\endverbatim=\endgroup
  562.  
  563. % Input a file in verbatim mode.  Sometimes useful for including
  564. % real-life examples into a paper.
  565. \def\verbfile#1{%
  566.     \begingroup\setupverbatim
  567.     \parskip=\z@ plus .05\baselineskip \parindent=\z@
  568.     \input#1 \endgroup
  569. }
  570.  
  571. % This is the same as the above, but it adds line numbers to each
  572. % line of the file printed.  \lineno@uci has the obvious use.
  573. \newcount\lineno@uci
  574. \def\listing#1{%
  575.   \lineno@uci=\z@
  576.   \begingroup\setupverbatim
  577.     \parskip=\z@ plus .05\baselineskip \parindent=20\p@
  578.     \everypar{\advance\lineno@uci by\@ne \llap{\the\lineno@uci\ \ }}%
  579.     \input#1
  580.   \endgroup
  581. }
  582.  
  583. % Draw a little qed symbol (black box)
  584. \def\qed{\hbox{\hskip\p@ \vrule width4\p@ height6\p@ depth1.5\p@ \hskip\p@}}
  585.  
  586. % Conditions -- from AmSppt
  587. \newif\ifrunin@AmS
  588. \runin@AmSfalse
  589. \let\runin=\runin@AmStrue
  590. \newdimen\cond@dimen
  591. \newdimen\condindent    % Amount each nested condition is indented
  592. \condindent=.5in    % Default indentation amount
  593.  
  594. % This is used in \conditions
  595. \def\firstcon@AmS#1:{%
  596.     \ifrunin@AmS
  597.     {\rm\ignorespaces#1\unskip}\ignorespaces
  598.     \runin@AmSfalse
  599.     \else
  600.     \par
  601.     \ifdim\lastskip<\smallskipamount
  602.         \removelastskip \penalty55 \smallskip
  603.     \fi
  604.     \\#1:%
  605.     \fi
  606. }
  607.  
  608. % Do one item of the conditions.  This is really \\ in disguise.
  609. \def\cond@item#1:{%
  610.     \par\noindent
  611.     \hbox to \cond@dimen{\hfil\rm\ignorespaces#1\unskip\quad}%
  612.     \hangafter1
  613.     \hangindent\cond@dimen\ignorespaces
  614. }
  615.  
  616. \cond@dimen=\z@        % Value for outermost block
  617. % Do the main stuff for \conditions.
  618. \def\conditions{%
  619.     \par
  620.     \let\\=\cond@item
  621.     \begingroup
  622.     \advance\cond@dimen by\condindent
  623.     \firstcon@AmS
  624. }
  625.  
  626. % Exit special stuff for \conditions.
  627. \def\endconditions{%
  628.     \par\smallbreak\endgroup
  629.     \ifdim\cond@dimen>\z@ \cond@item \fi    % If ending an inner condition
  630. }
  631.  
  632. % Automatically numbered items
  633. \newcount\item@count
  634. \newdimen\item@dimen  \item@dimen=\z@
  635. \def\item@prefix{}
  636. \def\beginitems{%
  637.     \begingroup
  638.     \advance \parindent by\item@dimen
  639.     \ifnum\item@dimen>\z@
  640.         \edef\item@prefix{\item@prefix\number\item@count.}
  641.     \else
  642.         \item@dimen=1cm
  643.     \fi
  644.         \item@count=\z@ \singlespace \interlinepenalty=200
  645. }
  646. \def\enditems{\par\endgroup}
  647. \def\nitem{\advance\item@count by\@ne \item{\item@prefix\number\item@count.}}
  648.  
  649. % Turn back on the \+ construct of plain TeX.
  650. \def\tabalign{\us@true\m@ketabbox}
  651. \outer\def\+{\tabalign}
  652.  
  653. % Fix AmSTeX's definition used in its definition of ~ (tie).
  654. \def\s@AmS{\penalty\@M\ifx\tok@AmS\Space@AmS\else\ \fi}
  655.  
  656. % And make \/ work the way it does in plain.tex
  657. \let\/=\ic@AmS
  658.  
  659. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  660. %  PAGE CONTROL and OBJECT MANIPULATION  %
  661. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  662.  
  663. % This definition doesn't blow up if you're in vertical mode already
  664. \def\pagebreak{\ifhmode\vadjust{\break}\else\break\relax}
  665.  
  666. % This definition clears out all previous inserts etc to
  667. % guarantee that the following stuff is at the top of a page.
  668. \def\clearpage{\vfill\supereject}
  669.  
  670. % This macro keeps the stuff in the argument on the same page, leaving
  671. % blank space on this page if necessary
  672. \def\keep{\par\setbox\z@=\vbox\bgroup}
  673. \def\endkeep{%
  674.     \egroup
  675.     \dimen@=\ht\z@
  676.     \advance\dimen@ by\dp\z@
  677.     \vskip\z@ plus\dimen@
  678.     \penalty\z@
  679.     \vskip\z@ plus-\dimen@
  680.     \vskip\parskip
  681.     \box\z@
  682.     \goodbreak
  683. }
  684. \def\filkeep{%
  685.     \egroup
  686.     \filbreak
  687.     \vskip\parskip
  688.     \box\z@
  689.     \goodbreak
  690. }
  691.  
  692. % List macros from the TeXbook
  693.  
  694. \toksdef\ta=\z@ \toksdef\tb=\tw@
  695. \newif\ifresult@uci
  696.  
  697. % usage: \newlist\list
  698. \def\newlist#1{\let#1=\empty}
  699.  
  700. % usage: \append{item}\to\list
  701. \def\append#1\to#2{\ta={\\{#1}}\tb=\expandafter{#2}\edef#2{\the\tb\the\ta}}
  702. \def\gappend#1\to#2{\ta={\\{#1}}\tb=\expandafter{#2}\xdef#2{\the\tb\the\ta}}
  703.  
  704. % usage: \cardinality\list\to\counter
  705. \def\cardinality#1\to#2{#2=\z@ \long\def\\##1{\advance#2 by\@ne }#1}
  706.  
  707. % usage: \ifismember{item}\of\list ... \else ... \fi
  708. \def\ifismember#1\of#2{%
  709.     \def\given@uci{#1}%
  710.     \result@ucifalse
  711.     \def\\##1{%
  712.     \def\next@uci{##1}%
  713.     \ifx\next@uci\given@uci \result@ucitrue\fi
  714.     }%
  715.     #2%
  716.     \ifresult@uci
  717. }
  718.  
  719. % usage: \ifwasmember{item}\of\list ... \else ... \fi
  720. %    side effect: removes {item} from \list if present
  721. \def\ifwasmember#1\of#2{%
  722.     \newlist\ref@mtr
  723.     \def\given@uci{#1}%
  724.     \result@ucifalse
  725.     \def\\##1{%
  726.     \def\next@uci{##1}%
  727.     \ifx\next@uci\given@uci
  728.         \result@ucitrue
  729.     \else
  730.         \append ##1\to\ref@mtr
  731.     \fi
  732.     }%
  733.     #2%
  734.     \let#2=\ref@mtr
  735.     \ifresult@uci
  736. }
  737.  
  738. % Append #1 to list #2 if #1 is not already in #2
  739. \def\addtolist#1\to#2{%
  740.     \ifismember#1\of#2%
  741.     \else
  742.     \append #1\to #2%
  743.     \fi
  744. }
  745. % Same thing, but do it \global'ly
  746. \def\gaddtolist#1\to#2{%
  747.     \ifismember#1\of#2%
  748.     \else
  749.     \gappend#1\to#2%
  750.     \fi
  751. }
  752.  
  753.  
  754. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  755. %  STUFF for BIBLIOGRAPHY and APPENDICES  %
  756. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  757.  
  758. % Bibliography Package:
  759. %           Original version by Michal Spivak
  760. %           Updated for JACM format and automated by Tim Morgan
  761. %           Final cleanup, and much-improved automation, by Marshall Rose
  762. %           Additional work and IEEE support by TM.
  763.  
  764. % Simple appendix entry builder
  765. \def\appendix#1#2{%
  766.     \par
  767.     \clearpage
  768.     \ifoddpages
  769.     \ifodd\pageno \else \null\vfill\eject\fi
  770.     \fi
  771.     \pageno@foot
  772.     \begingroup
  773.     \setbox\z@=\hbox{#1}%
  774.     \ifdim\wd\z@>\z@
  775.         \content{Appendix #1: #2}%
  776.         \oktell{Appendix #1: #2}%
  777.         \def\title{Appendix #1\\#2}%
  778.     \else
  779.         \content{Appendix: #2}%
  780.         \oktell{Appendix: #2}%
  781.         \def\title{Appendix\\#2}%
  782.     \fi
  783.     \let\\=\cr \tabskip=\z@ \chap@font
  784.     \halign to\hsize{\centerline{\ignorespaces##\unskip}\cr\title\cr}%
  785.     \endgroup
  786.     \nobreak
  787.     \vskip 1.0in minus 0.15in
  788. }
  789.  
  790.  
  791. % Citations:
  792. % We keep a running list, \ref@set, which is
  793. % all the things which were \cite'd throughout the paper, with
  794. % only one entry for each different key.
  795. %
  796. % There are three versions of each of the citation
  797. % commands:
  798. % 1. The \def'd version is the normal one used throughout the paper.
  799. % 2. Within a figure, table, etc,'s caption, because of the use of
  800. %    \def and \edef, a special version which just produces the
  801. %    citation without the \gaddtolist command is used.  These
  802. %    definitions are predefined, and are \let to be \cite etc with
  803. %    \no@cites, for speed.
  804. %
  805. % When the user requests a citation with key, we first look it up
  806. % in a translation table called \key@table, organized as a list of
  807. % <key, printed-key> pairs, to see if it really should be
  808. % printed differently.  The user can specify this translation table using
  809. % the \printkey command.  If a key is not in the table, it is printed
  810. % as-is.
  811.  
  812. % We keep the dimension \key@size as the largest printed key so far.
  813. % This value can then be used to print the keys in the bibliography
  814. % optimally, rather than just trying to guess.  Each time we print a
  815. % (in \use@key), we see if it's longer than \key@size, and if so then
  816. % we set \key@size = its width.
  817. \newdimen\key@size
  818. \key@size=\z@    % Init. value so \key@size is made as small as possible
  819.  
  820. % Invisible citation.  usage: \icite{key}
  821. \def\icite#1{%
  822.     \gaddtolist#1\to\ref@set
  823. }
  824.  
  825. % Management of \key@table stuff.  This table is formatted as
  826. % \\{real-key}{printed-key}...
  827. \newlist\key@table
  828.  
  829. % Add a pair of items to the list.  This should be done before any
  830. % citations are made, for obvious reasons.
  831. % #1=real key (the one you use in the paper and bibliography)
  832. % #2=the key that gets printed in the output
  833. \def\printkey#1#2{%
  834.     \ta={\\{#1}{#2}}%
  835.     \tb=\expandafter{\key@table}%
  836.     \xdef\key@table{\the\tb\the\ta}%
  837. }
  838.  
  839. % Print a key, looking it up in the table.  #1 is \whatever which
  840. % expands to the key used by the user.  The definition of \\ here
  841. % makes use of the format of the \key@table, so that the table is
  842. % actually EXECUTED, hence making lookup relatively fast.
  843. \newif\if@not@printed@
  844. \def\use@key#1{%
  845.     \@not@printed@true
  846.     \def\\##1##2{%
  847.     \if@not@printed@
  848.         \def\temp@uci{##1}%
  849.         \ifx\temp@uci#1%
  850.         \@not@printed@false
  851.         \setbox\z@=\hbox{[##2]\enspace}%
  852.         \ifdim\wd\z@>\key@size \global\key@size=\wd\z@ \fi
  853.         ##2%
  854.         \fi
  855.     \fi
  856.     }%
  857.     \key@table
  858.     \if@not@printed@
  859.     \setbox\z@=\hbox{\cite@font[\ignorespaces#1\unskip]\enspace}%
  860.     \ifdim\wd\z@>\key@size \global\key@size=\wd\z@ \fi
  861.     #1%
  862.     \fi
  863. }
  864.  
  865. % This macro moves forward until it hits \end, skipping spaces.
  866. % Each time it hits a comma, or when it hits and \end, it
  867. % adds whatever has been collected so far (in \@total) to
  868. % \ref@set and to the output list.  It is assumed that \@total
  869. % has been set to \empty before this routine is called (this is done
  870. % by \@@cite, below).
  871. \def\@icite#1{%
  872.     \if#1\end
  873.     \expandafter\gaddtolist\@total\to\ref@set
  874.     \use@key\@total
  875.         \let\@next=\relax    % Exit loop after this time
  876.     \else
  877.         \if#1,%            % We have a complete key now.
  878.         \expandafter\gaddtolist\@total\to\ref@set
  879.         \use@key\@total,\space
  880.         \global\let\@total=\empty
  881.     \else
  882.         \xdef\@total{\@total#1}%    Add new char to total
  883.     \fi
  884.     \let\@next=\@icite    % Continue looping until done
  885.     \fi
  886.     \@next
  887. }
  888.  
  889. % Initialize and call \@icite.  Used in \cite, \citep, \citepp
  890. \def\@@cite#1{\global\let\@total=\empty\@icite#1\end}
  891.  
  892. % usage: \cite{key [, key...]}
  893. \def\cite#1{%
  894.     {\cite@font[\@@cite{#1}]}%
  895. }
  896.  
  897. % usage: \citep{key}{page}
  898. \def\citep#1#2{%
  899.     {\cite@font[\@@cite{#1}, \hbox{\rm p \ignorespaces#2\unskip}]}%
  900. }
  901.  
  902. % usage: \citepp{key}{pages}
  903. \def\citepp#1#2{%
  904.     {\cite@font[\@@cite{#1}, \hbox{\rm pp \ignorespaces#2\unskip}]}%
  905. }
  906.  
  907. % These three definitions are used in \no@cites, below.  They
  908. % don't handle extraneous spaces as well as the normal
  909. % definition, but they should be sufficient for most people.
  910. \def\i@cite#1{{\cite@font[\noexpand\noexpand\noexpand\@@cite{#1}]}}
  911.  
  912. \def\i@citep#1#2{{\cite@font[\noexpand\noexpand\noexpand\@@cite{#1},\space
  913.     \hbox{\noexpand\noexpand\noexpand\rm p \ignorespaces#2\unskip}]}%
  914. }
  915.  
  916. \def\i@citepp#1#2{{\cite@font[\noexpand\noexpand\noexpand\@@cite{#1},\space
  917.     \hbox{\noexpand\noexpand\noexpand\rm pp \ignorespaces#2\unskip}]}%
  918. }
  919.  
  920. % Turn off adding citations to \ref@set.  This is needed when
  921. % using \cite etc inside a caption for tables, figures, etc.
  922. % \no@cites is undone by exiting an enclosing group.
  923. \def\no@cites{%
  924.     \let\citepp=\i@citepp
  925.     \let\citep=\i@citep
  926.     \let\cite=\i@cite
  927. }
  928.  
  929. %%%%%%%%%%%%%%%%%%%%%%
  930. % References Section %
  931. %%%%%%%%%%%%%%%%%%%%%%
  932.  
  933. % The basic strategy is as follows.  We read the bib. file, which is
  934. % assumed to be in sorted order of keys/author names.  Each
  935. % entry is of the form \ref{key}.  We see if that key is in the table
  936. % \ref@set, which is a table of all the keys we've \cite'd.  If the key
  937. % isn't in the list, we print it in parens and go on to the next entry.
  938. % Otherwise, we print the key in square brackets, and format the
  939. % bibliography entry according to the format (JACM or IEEE).  We print a
  940. % warning if the key is in the \ref@seen list.  We add the key to
  941. % the \ref@seen list.  The key is removed from the \ref@set list if it
  942. % was there.  At the end of the references (\endreferences), we check
  943. % if there are any keys left in \ref@set.  If so, the bib. file was
  944. % deficient, and we print a warning message (it should probably be a
  945. % fatal error message).
  946.  
  947. % Annotation control
  948. \newif\ifinclude@annos            % Should annotations be printed?
  949. \include@annosfalse            % By default, no
  950. \def\annotate{%                % ``official'' command
  951.     \include@annostrue
  952.     \oktell{Annotating bibliography}%
  953. }
  954.  
  955. \newif\ifin@anno            % True while doing an annotation
  956. \in@annofalse
  957.  
  958. \def\refi@AmS{F}            % This starts as False
  959.  
  960. % Begin an annotation -- must be in vertical mode.  Just gather
  961. % text into box0 for use by \endanno.  We do a couple of consistency
  962. % checks at the beginning.
  963. \def\anno{%
  964.     \ifhmode
  965.     \message{You forgot the \noexpand\endref command!}
  966.     \message{I've inserted one for you.}
  967.     \endanno
  968.     \fi
  969.     \if F\refi@AmS
  970.     \errmessage{No \noexpand\ref command before first \noexpand\anno}
  971.     \fi
  972.     \let\\=\newline
  973.     \in@annotrue
  974.     \setbox\z@=\vbox\bgroup
  975. }
  976.  
  977. % End of an annotation.  Decide if it should be typeset or skipped.
  978. \def\endanno{%
  979.     \egroup                % End the group for box0
  980.     \in@annofalse            % No longer doing an annotation
  981.     \if T\refed@uci            % If previous reference was used,
  982.     \ifinclude@annos {%    And if we're producing an annotated bib.,
  983.         \vskip\parskip
  984.         \interlinepenalty=\defaultinterlinepenalty
  985.         \unvbox\z@    % Then include annotation as normal paragraph(s)
  986.         \par
  987.     }\fi
  988.     \fi
  989. }
  990.  
  991. \global\newlist\ref@set                % list of all references cited
  992. \global\newlist\ref@seen            % list of all references defined
  993.  
  994. \def\reftitle{References}        % Default title for bibliography
  995.  
  996. % usage: \references (begin the References section)
  997. \def\references{%
  998.     \vfill\supereject            % Begin new page, clear out everything
  999.     \ifoddpages                % Make sure start on even page.
  1000.     \ifodd\pageno \relax \else \null\vfill\eject \fi
  1001.     \fi
  1002.     \begingroup                % Following changes are local to bib.
  1003.  
  1004.     \twelvepoint            % Get good appearance
  1005.     \singlespace
  1006.     \no@cites                            % \cite's just produce [key]
  1007.     \parskip=0.6\baselineskip plus5\p@ minus4\p@
  1008.     \tolerance=5000            % Must be extremely tolerant!
  1009.     \pretolerance=300
  1010.     \interlinepenalty=400        % To discourage breaking a reference
  1011.                     % across page boundaries
  1012.     \uchyph=\@ne            % Needed to try hyphenating title words
  1013.     \sfcode`.=\@m            % Like \frenchspacing, but only for
  1014.                     % periods
  1015.  
  1016.     % Now we output the title and so forth.
  1017.     \centerline{\csc \reftitle}%
  1018.     \nobreak
  1019.     \medskip
  1020.     \content\reftitle            % Tell user and TOC.
  1021.     \oktell\reftitle
  1022.     \pageno@foot            % Put page # in special place
  1023.  
  1024.     % Special definitions within reference mode
  1025.     \let\year=\yr
  1026.     \let\month=\mon
  1027. }
  1028.  
  1029. % usage: \endreferences (end the References section)
  1030. \def\endreferences{%
  1031.     \par    % Make sure last printed reference is finished up.
  1032.     \cardinality\ref@set\to\count@
  1033.     \ifnum\count@>\z@
  1034.     \def\\##1{[##1] }
  1035.     \ifnum\count@>1
  1036.       \message{Warning: \number\count@\space undefined citations: \ref@set}
  1037.     \else
  1038.       \message{Warning: One undefined citation: \ref@set}
  1039.     \fi
  1040.     \fi
  1041.   \endgroup    % End of \references group
  1042. }
  1043.  
  1044.  
  1045. % References Database
  1046.  
  1047.  
  1048. \newbox\bybox@AmS    \newbox\bysamebox@AmS
  1049. \newbox\paperbox@AmS    \newbox\paperinfobox@AmS
  1050. \newbox\jourbox@AmS    \newbox\jourinfobox@AmS
  1051. \newbox\volbox@AmS    \newbox\issuebox@AmS
  1052. \newbox\monbox@AmS    \newbox\yrbox@AmS
  1053. \newbox\pagesbox@AmS    \newbox\editorbox@AmS
  1054. \newbox\bookbox@AmS    \newbox\bookinfobox@AmS
  1055. \newbox\publbox@AmS    \newbox\publaddrbox@AmS
  1056. \newbox\finalinfobox@AmS\newbox\wastebox@uci
  1057. \newbox\talkbox@AmS    \newbox\keybox@AmS
  1058. \newbox\editorsbox@AmS
  1059.  
  1060. \def\using@IEEE{F}    % By default, not using IEEE format
  1061.  
  1062. % reset a \keyword to the ``not used'' condition
  1063. \def\refset@AmS#1{%
  1064.     \expandafter\gdef\csname is\expandafter\eat@AmS
  1065.     \string#1@AmS\endcsname{F}\expandafter
  1066.     \setbox\csname\expandafter\eat@AmS\string#1box@AmS\endcsname=\null
  1067. }
  1068.  
  1069. % reset \keyword's
  1070. \def\ref@AmS{%
  1071.     \refset@AmS\key    \refset@AmS\finalinfo
  1072.     \refset@AmS\by    \gdef\isbysame@AmS{F}%
  1073.     \refset@AmS\paper    \refset@AmS\paperinfo
  1074.     \refset@AmS\jour    \refset@AmS\jourinfo
  1075.     \refset@AmS\vol    \refset@AmS\issue
  1076.     \refset@AmS\mon    \refset@AmS\yr
  1077.     \refset@AmS\pages    \gdef\ispage@AmS{F}%
  1078.     \refset@AmS\book    \refset@AmS\bookinfo
  1079.     \refset@AmS\publ    \refset@AmS\publaddr
  1080.     \refset@AmS\editor    \refset@AmS\talk
  1081.     \refset@AmS\editors
  1082.     \gdef\istoappear@AmS{F}%
  1083.     \gdef\isinbook@AmS{F}%
  1084.     \bgroup
  1085.     \ignorespaces
  1086. }
  1087.  
  1088. % usage: \ref{citation} \keywords arguments ... \endref.  We make sure
  1089. % we aren't still doing an \anno first.
  1090. \def\ref#1{%
  1091.     \ifin@anno
  1092.     \message{You forgot an \noexpand\endanno command,}
  1093.     \message{but I forgive you this time.}
  1094.     \endanno
  1095.     \fi
  1096.     \def\refi@AmS{T}%
  1097.     \ifwasmember#1\of\ref@set
  1098.     \def\refed@uci{T}%
  1099.     \okmessage{[#1]}%
  1100.     \else
  1101.     \def\refed@uci{F}%
  1102.     \okmessage{(#1)}%
  1103.     \fi
  1104.     \ifismember#1\of\ref@seen
  1105.     \sanetell{multiply defined: [#1]}%
  1106.     \else
  1107.     \append#1\to\ref@seen
  1108.     \fi
  1109.     \def\refl@AmS{F}%
  1110.     \def\\{\egroup\endref@AmS\gdef\refi@AmS{F}\ref@AmS}%
  1111.     \ref@AmS
  1112.     \gdef\@total{#1}%
  1113.     \key \if T\refed@uci
  1114.     \use@key\@total
  1115.     \fi\egroup\setbox\wastebox@uci=\hbox\bgroup\ignorespaces
  1116. }
  1117.  
  1118. % End of a reference.
  1119. %
  1120. % Note that \endref@AmS is \let to be whichever \endref@xxx command
  1121. % is being used; default is \endref@JACM for JACM format.
  1122. %
  1123. % If we printed the reference, \endref@AmS will
  1124. % have set \bysamebox@AmS to be a box containing a box
  1125. % containing a rule and a period.  This is unboxed if a subsequent
  1126. % reference which gets printed uses \bysame.  Otherwise, we here
  1127. % save the \by field (if given) so that if a subsequent reference
  1128. % using \bysame gets used, we'll know who the author was, even though
  1129. % the reference which gave the author(s) wasn't printed.  Tricky, huh?
  1130. \def\endref{%
  1131.     \egroup\gdef\refl@AmS{T}%
  1132.     \if T\refed@uci
  1133.     \endref@AmS
  1134.     \else
  1135.     \if T\isby@AmS
  1136.         \setbox\bysamebox@AmS=\box\bybox@AmS
  1137.     \fi
  1138.     \fi
  1139.     \par
  1140. }
  1141.  
  1142. % define a \keyword.  #1=keyword, #2=font to use, or {}
  1143. \def\refdef@AmS#1#2{%
  1144.     \def#1{%
  1145.     \egroup
  1146.     \expandafter\gdef
  1147.         \csname is\expandafter\eat@AmS\string#1@AmS\endcsname{T}%
  1148.     \expandafter\setbox
  1149.         \csname\expandafter\eat@AmS\string#1box@AmS\endcsname
  1150.             =\hbox\bgroup#2\ignorespaces
  1151.     }%
  1152. }
  1153.  
  1154. % define the keywords
  1155.  
  1156. \refdef@AmS\by\by@font        \refdef@AmS\paper{}
  1157. \refdef@AmS\paperinfo{}        \refdef@AmS\jour\book@font
  1158. \refdef@AmS\vol\book@font    \refdef@AmS\issue{}
  1159. \refdef@AmS\mon{}        \refdef@AmS\yr{}
  1160. \refdef@AmS\pages{}        \refdef@AmS\talk{}
  1161. \refdef@AmS\book\book@font    \refdef@AmS\bookinfo{}
  1162. \refdef@AmS\publ{}        \refdef@AmS\publaddr{}
  1163. \refdef@AmS\finalinfo{}     \refdef@AmS\editor{}
  1164. \refdef@AmS\jourinfo{}        \refdef@AmS\key\cite@font
  1165. \refdef@AmS\editors{}
  1166.  
  1167. % These don't fit the normal pattern.
  1168. \def\bysame{\egroup\gdef\isbysame@AmS{T}\bgroup}
  1169. \def\page{\egroup\gdef\ispage@AmS{T}\setbox\pagesbox@AmS=\hbox\bgroup
  1170.     \ignorespaces}
  1171. \def\toappear{\egroup\gdef\istoappear@AmS{T}\bgroup}
  1172. \def\inbook{\egroup\gdef\isinbook@AmS{T}\setbox\bookbox@AmS=\hbox\bgroup
  1173.     \book@font\ignorespaces
  1174. }
  1175.  
  1176. % This is the font we normally print book and journal titles in, but we
  1177. % use \twelveit for IEEE format.
  1178. \let\book@font=\twelvesl
  1179.  
  1180. % Similarly, this is the font to use for the author's name(s).
  1181. % Optionally, the user can ask for the cite font instead (this is
  1182. % not necessarily related to use of the IEEE format).
  1183. \let\by@font=\twelverm
  1184.  
  1185. % As an option, the user can have the author's name(s) in caps-small-caps.
  1186. \def\AuthorsInCSC{%
  1187.     \let\by@font=\elevencsc
  1188.     \oktell{Authors in CSC mode}%
  1189. }
  1190.  
  1191. % Define some aliases for some of the above, for user convenience.
  1192. \let\pp=\pages
  1193. \let\pgs=\pages
  1194. \let\pg=\page
  1195. \let\p=\page
  1196. \let\journal=\jour
  1197. \let\volume=\vol
  1198. \let\author=\by
  1199. \let\authors=\by
  1200. \let\ieee@editors=\editors    % Save it in case we use IEEE format
  1201. \let\editors=\editor        % If using default JACM format
  1202. \let\other=\talk
  1203. \let\no=\issue
  1204.  
  1205. % Helpers to \endref@AmS, which speed things up a lot, and/or
  1206. % make the code more compact.
  1207. \def\a@comma{, }    % Used in next routine.  Predefined for speed of \let.
  1208. \def\setpunct@AmS{\let\prepunct@AmS=\a@comma}
  1209. \def\ppunbox@AmS#1{\prepunct@AmS\unhbox#1\unskip}
  1210.  
  1211.  
  1212. % Actually do some typesetting (finally).  As mentioned above,
  1213. % \endref@AmS is called to print a reference if we want it.  It
  1214. % is \let to be either \endref@JACM or \endref@IEEE (or possibly
  1215. % some other format in the future) depending on the desired
  1216. % format.
  1217. %
  1218. % For some reason, the ~'s don't see to tie things, so some
  1219. % \hbox's were introduced.
  1220. %
  1221. % There is unfortunately a lot of common code between the
  1222. % different formats.  Here are some sections which were easy to
  1223. % pull out:
  1224. \def\endref@startup{%
  1225.     % Test to see if there is anything in the wastebox
  1226.     \setbox\wastebox@uci=\hbox{\unhbox\wastebox@uci\unskip}%
  1227.     \ifdim\wd\wastebox@uci>\z@
  1228.     \errmessage{Keyword omitted after \noexpand\ref}%
  1229.     \fi
  1230.     \let\prepunct@AmS=\empty
  1231.     \vskip\parskip
  1232.     \noindent \hangafter=\@ne
  1233. }
  1234.  
  1235. % This is the text printed for the JACM format for papers
  1236. % appearing in a book.
  1237. \def\appearing@in{Appearing in }
  1238.  
  1239. % Common code at the end of \endref@JACM and \endref@IEEE.
  1240. % The argument is the date routine to use.
  1241. \def\endref@finishup#1{%
  1242.     \if T\istalk@AmS
  1243.     \dimen@=\wd\talkbox@AmS
  1244.     \ifdim\dimen@>\z@
  1245.         \ppunbox@AmS\talkbox@AmS\setpunct@AmS
  1246.     \fi
  1247.     \fi
  1248.     \if T\isbook@AmS
  1249.     \ppunbox@AmS\bookbox@AmS \setpunct@AmS
  1250.     \editor@ref
  1251.     \fi
  1252.     \if T\isinbook@AmS
  1253.     \prepunct@AmS\appearing@in\unhbox\bookbox@AmS\unskip \setpunct@AmS
  1254.     \editor@ref \gdef\isbook@AmS{T}%
  1255.     \fi
  1256.     \if T\isbookinfo@AmS
  1257.     \ppunbox@AmS\bookinfobox@AmS\setpunct@AmS
  1258.     \fi
  1259.     \if T\using@IEEE
  1260.     \if T\ispubladdr@AmS
  1261.         \ppunbox@AmS\publaddrbox@AmS
  1262.         \if T\ispubl@AmS \def\prepunct@AmS{: }\else\setpunct@AmS\fi
  1263.     \fi
  1264.     \if T\ispubl@AmS
  1265.         \ppunbox@AmS\publbox@AmS\setpunct@AmS
  1266.     \fi
  1267.     \else
  1268.     \if T\ispubl@AmS
  1269.         \ppunbox@AmS\publbox@AmS\setpunct@AmS
  1270.     \fi
  1271.     \if T\ispubladdr@AmS
  1272.         \ppunbox@AmS\publaddrbox@AmS\setpunct@AmS
  1273.     \fi
  1274.     \fi
  1275.     \if T\isbook@AmS
  1276.     \if T\isvol@AmS
  1277.         \prepunct@AmS Vol.~\unhbox\volbox@AmS\unskip\setpunct@AmS
  1278.     \fi
  1279.     \if T\isyr@AmS
  1280.         \ppunbox@AmS\yrbox@AmS\setpunct@AmS
  1281.     \fi
  1282.     \if T\istoappear@AmS
  1283.         \ (to appear)\setpunct@AmS
  1284.     \fi
  1285.     \if T\ispages@AmS
  1286.               \prepunct@AmS pp.~\unhbox\pagesbox@AmS\unskip\setpunct@AmS
  1287.     \fi
  1288.     \if T\ispage@AmS
  1289.         \prepunct@AmS p.~\unhbox\pagesbox@AmS\unskip\setpunct@AmS
  1290.     \fi
  1291.     \fi
  1292.     \if T\istalk@AmS
  1293.     #1%    This is the date routine to use.
  1294.     \fi
  1295.     \if T\isfinalinfo@AmS
  1296.     \period\unhbox\finalinfobox@AmS
  1297.     \else
  1298.     \if T\refl@AmS .
  1299.     \else ;
  1300.     \fi
  1301.     \fi
  1302. }
  1303.  
  1304. % Print editor(s) if and as appropriate.
  1305. \def\editor@ref{%
  1306.     \if T\using@IEEE
  1307.     \if T\iseditor@AmS
  1308.         \ppunbox@AmS\editorbox@AmS, Ed.\setpunct@AmS
  1309.     \fi
  1310.     \if T\iseditors@AmS
  1311.         \ppunbox@AmS\editorsbox@AmS, Eds.\setpunct@AmS
  1312.     \fi
  1313.     \else
  1314.     \if T\iseditor@AmS
  1315.         \ppunbox@AmS\editorbox@AmS\ (ed.)\setpunct@AmS
  1316.     \fi
  1317.     \fi
  1318. }
  1319.  
  1320. % This routine prints the date in the JACM format
  1321. \def\date@JACM{%
  1322.     \if T\isyr@AmS
  1323.     \/\ (%
  1324.     \if T\ismon@AmS
  1325.         \unhbox\monbox@AmS\unskip,
  1326.     \fi
  1327.     \unhbox\yrbox@AmS\unskip)\setpunct@AmS
  1328.     \else
  1329.     \if T\ismon@AmS
  1330.         \ppunbox@AmS\monbox@AmS\setpunct@AmS
  1331.     \fi
  1332.     \fi
  1333. }
  1334.  
  1335. % This prints the date in the IEEE format.
  1336. \def\date@IEEE{%
  1337.     \if T\isyr@AmS
  1338.     \prepunct@AmS
  1339.     \if T\ismon@AmS
  1340.         \unhbox\monbox@AmS\unskip\a@comma
  1341.     \fi
  1342.     \unhbox\yrbox@AmS\unskip\setpunct@AmS
  1343.     \else
  1344.     \if T\ismon@AmS
  1345.         \ppunbox@AmS\monbox@AmS\setpunct@AmS
  1346.     \fi
  1347.     \fi
  1348. }
  1349.  
  1350.  
  1351. % This version produces JACM format references.
  1352. \def\endref@JACM{%
  1353.     \endref@startup
  1354.     \if T\refi@AmS
  1355.     \hbox to \key@size{\cite@font [\unhbox\keybox@AmS\unskip]\hfil}%
  1356.     \hangindent=\key@size
  1357.     \if T\isby@AmS
  1358.        \unhcopy\bybox@AmS\unskip
  1359.        \def\prepunct@AmS{\hskip7\p@ plus5\p@\relax}%
  1360.        \setbox\z@=\hbox{\unhbox\bybox@AmS\unskip}%
  1361.        \dimen@=\wd\z@    % We want \dimen0=max(\wd0, 2in)
  1362.        \ifdim\dimen@>2in \dimen@=2in \fi
  1363.        \setbox\bysamebox@AmS=\hbox{\hbox to\dimen@{\leaders\hrule\hfill.}}%
  1364.     \else
  1365.         \if T\isbysame@AmS
  1366.             \unhcopy\bysamebox@AmS\unskip
  1367.         \def\prepunct@AmS{\hskip7\p@ plus5\p@\relax}%
  1368.         \fi
  1369.     \fi
  1370.     \fi
  1371.     \if T\ispaper@AmS
  1372.     \ppunbox@AmS\paperbox@AmS\def\prepunct@AmS{. }%
  1373.     \fi
  1374.     \if T\ispaperinfo@AmS
  1375.     \ppunbox@AmS\paperinfobox@AmS\def\prepunct@AmS{. }%
  1376.     \fi
  1377.     \if T\isjour@AmS
  1378.     \ppunbox@AmS\jourbox@AmS\setpunct@AmS
  1379.     \editor@ref
  1380.     \if T\isjourinfo@AmS
  1381.         \ppunbox@AmS\jourinfobox@AmS\setpunct@AmS
  1382.     \fi
  1383.     \if T\isvol@AmS
  1384.         \ \unhbox\volbox@AmS\unskip
  1385.     \fi
  1386.     \if T\isissue@AmS
  1387.         \ppunbox@AmS\issuebox@AmS\setpunct@AmS
  1388.     \fi
  1389.     \date@JACM
  1390.     \if T\istoappear@AmS
  1391.         \ (to appear)\setpunct@AmS
  1392.     \fi
  1393.     \if T\ispages@AmS
  1394.         \ppunbox@AmS\pagesbox@AmS\setpunct@AmS
  1395.     \fi
  1396.     \if T\ispage@AmS
  1397.             \prepunct@AmS p.~\unhbox\pagesbox@AmS\unskip\setpunct@AmS
  1398.     \fi
  1399.     \fi
  1400.     \endref@finishup\date@JACM
  1401. }
  1402.  
  1403.  
  1404. % This version produces IEEE format references.
  1405. \def\endref@IEEE{%
  1406.     \endref@startup
  1407.     \if T\refi@AmS
  1408.     \hbox to \key@size{\cite@font [\unhbox\keybox@AmS\unskip]\hfil}%
  1409.     \hangindent=\key@size
  1410.     \if T\isby@AmS \unhcopy\bybox@AmS\unskip\setpunct@AmS
  1411.        \setbox\z@=\hbox{\unhbox\bybox@AmS\unskip}%
  1412.        \dimen@=\wd\z@    % We want \dimen0=max(\wd0, 2in)
  1413.        \ifdim\dimen@>2in \dimen@=2in \fi
  1414.        \setbox\bysamebox@AmS=\hbox{\hbox to\dimen@{\leaders\hrule\hfill}}%
  1415.     \else
  1416.         \if T\isbysame@AmS
  1417.             \unhcopy\bysamebox@AmS\unskip\setpunct@AmS
  1418.         \fi
  1419.     \fi
  1420.     \fi
  1421.     \if T\ispaper@AmS
  1422.         \prepunct@AmS``\unhbox\paperbox@AmS\unskip,''
  1423.     \let\prepunct@AmS=\empty
  1424.     \fi
  1425.     \if T\ispaperinfo@AmS
  1426.     \ppunbox@AmS\paperinfobox@AmS\def\prepunct@AmS{, }%
  1427.     \fi
  1428.     \if T\isjour@AmS
  1429.     \ppunbox@AmS\jourbox@AmS\setpunct@AmS
  1430.     \editor@ref
  1431.     \if T\isjourinfo@AmS
  1432.         \ppunbox@AmS\jourinfobox@AmS\setpunct@AmS
  1433.     \fi
  1434.     \if T\isvol@AmS
  1435.         \prepunct@AmS vol.~\unhbox\volbox@AmS\unskip\setpunct@AmS
  1436.     \fi
  1437.     \if T\isissue@AmS
  1438.         \prepunct@AmS no.~\unhbox\issuebox@AmS\unskip\setpunct@AmS
  1439.     \fi
  1440.     \if T\istoappear@AmS
  1441.         \ (to appear)\setpunct@AmS
  1442.     \fi
  1443.     \if T\ispages@AmS
  1444.         \prepunct@AmS pp.~\unhbox\pagesbox@AmS\unskip\setpunct@AmS
  1445.     \fi
  1446.     \if T\ispage@AmS
  1447.             \prepunct@AmS p.~\unhbox\pagesbox@AmS\unskip\setpunct@AmS
  1448.     \fi
  1449.     \if T\ispubladdr@AmS
  1450.         \ppunbox@AmS\publaddrbox@AmS
  1451.         \if T\ispubl@AmS \def\prepunct@AmS{: }\else\setpunct@AmS\fi
  1452.     \fi
  1453.     \if T\ispubl@AmS
  1454.         \ppunbox@AmS\publbox@AmS\setpunct@AmS
  1455.     \fi
  1456.     \let\ispubl@AmS=F\let\ispubladdr@AmS=F% For finishup routine
  1457.     \date@IEEE
  1458.     \fi
  1459.     \endref@finishup\date@IEEE
  1460. }
  1461.  
  1462.  
  1463. % By default, we use JACM format references
  1464. \let\endref@AmS=\endref@JACM
  1465.  
  1466. % But it's possible to get the other format
  1467. \def\IEEE{%
  1468.     \gdef\using@IEEE{T}%    Now we're using IEEE format.
  1469.     \let\editors=\ieee@editors
  1470.     \let\endref@AmS=\endref@IEEE
  1471.     \refdef@AmS\vol{}%        Vol not printed in slanted any more.
  1472.     \global\let\appearing@in=\empty    % Don't say that in IEEE format.
  1473.     \let\volume=\vol
  1474.     \let\book@font=\twelveit    % Book and journal titles in this font.
  1475.     \oktell{IEEE Bibliography Style}%
  1476. }
  1477.  
  1478.  
  1479. % References Dump
  1480.  
  1481. \newwrite\dump@file
  1482.  
  1483. \catcode`\{=12    \catcode`\}=12    \catcode`\%=12    \catcode`\[=1    \catcode`\]=2
  1484. \def\ref@open[{]
  1485. \def\ref@close[}]
  1486. \def\ref@comment[%]
  1487. \catcode`\{=1    \catcode`\}=2    \catcode`\%=14    \catcode`\[=12    \catcode`\]=12
  1488.  
  1489. \def\refdump{%
  1490.     \vfill\supereject
  1491.     \begingroup
  1492.     \content\reftitle
  1493.     \tell{Dumping \reftitle\space to refdump.tex}%
  1494.     \immediate\openout\dump@file=refdump
  1495.     \immediate\write\dump@file{%
  1496.         \noexpand\catcode`\noexpand\@=11 ^^J%
  1497.         \noexpand\let\noexpand\content=\noexpand\eat@AmS^^J%
  1498.         \noexpand\pageno=\the\pageno^^J%
  1499.         \noexpand\def\noexpand\ref@set\ref@open\ref@comment
  1500.     }%
  1501.     \def\\##1{\immediate\write\dump@file{ \noexpand\\{##1}\ref@comment}}%
  1502.     \ref@set
  1503.     \immediate\write\dump@file{%
  1504.         \ref@close^^J%
  1505.     }%
  1506.     \immediate\closeout\dump@file
  1507.     \endgroup
  1508. }
  1509.  
  1510.  
  1511. %%%%%%%%%%%%%%%%%%%%
  1512. %  OUTPUT CONTROL  %
  1513. %%%%%%%%%%%%%%%%%%%%
  1514.  
  1515. % Control for informational messages.  Default is \verbose mode.
  1516. \newif\iftell@all
  1517. \let\verbose=\tell@alltrue
  1518. \let\quiet=\tell@allfalse
  1519. \verbose
  1520. \def\oktell#1{\iftell@all\tell{#1}\fi}
  1521. \def\okmessage#1{\iftell@all\message{#1}\fi}
  1522.  
  1523. % Chapter macro parameters
  1524. \newcount\chapterno
  1525. \chapterno=\z@          % Number of current chapter
  1526. \newif\ifnumber@chapters
  1527. \number@chapterstrue      % By default, number the chapters
  1528. \def\nochapternumbers{%
  1529.     \number@chaptersfalse
  1530.     \oktell{No Chapter Numbers mode}%
  1531. }
  1532.  
  1533. % Same thing for sections, subsections, etc
  1534. \newcount\sectno \sectno=\@ne
  1535. \newcount\subsectno \subsectno=\@ne
  1536. \newcount\subsubsectno \subsubsectno=\@ne
  1537. \newif\ifnumber@sections
  1538. \def\numbersections{%
  1539.     \number@sectionstrue
  1540.     \oktell{Section Numbers mode}%
  1541. }
  1542.  
  1543.  
  1544. %%%%%%%%%%%%%%%%%%%%%%%%%%%
  1545. %  OUTPUT CONTROL MACROS  %
  1546. %%%%%%%%%%%%%%%%%%%%%%%%%%%
  1547.  
  1548.  
  1549. % Center, left justify, right justify -- avoid exceeding margins
  1550. \def\centerline#1{\line{\hfill#1\hfill}}
  1551. \def\leftline#1{\line{#1\hfill}}
  1552. \def\rightline#1{\line{\hfill#1}}
  1553. \def\threepart#1#2#3{\line{\hskip\leftskip\rlap{#1}\hfill#2\hfill
  1554.     \llap{#3}\hskip\rightskip}}
  1555.  
  1556. % End of the main body of the document
  1557. \let\enddiss=\bye
  1558.  
  1559. % Summary Information
  1560. \outer\def\showsummary{%
  1561.     \begingroup
  1562.     \def\note##1##2##3##4{%
  1563.         \count@=##1
  1564.         \advance\count@ by##3
  1565.         \ifcase\count@
  1566.         \message{No ##2s##4}\or
  1567.         \message{1 ##2##4}\else
  1568.         \message{\the\count@\space ##2s##4}\fi
  1569.     }%
  1570.     \note\fignumber{figure}{-1}{,}%
  1571.     \note\tablenumber{table}{-1}{,}%
  1572.     \note\note@count{footnote}{-1}{,}%
  1573.     \cardinality\ref@set\to\count@
  1574.     \note\count@{citation}{0}{.}%
  1575.     \endgroup
  1576. }
  1577.  
  1578.  
  1579. % Real version of ragged right margins
  1580. \def\raggedright{%
  1581.     \rightskip=\z@ plus 2em
  1582.     \oktell{Raggedright mode}%
  1583. }
  1584.  
  1585. % Disallow hyphenation -- a very dangerous thing
  1586. \def\nohyphens{%
  1587.     \hyphenpenalty=\@M\tolerance=500\pretolerance=\@M
  1588.     \oktell{Nohyphens mode}%
  1589. }
  1590.  
  1591. % Allow capitalized words to be hyphenated
  1592. \def\hyphenall{%
  1593.     \uchyph=\@ne
  1594.     \oktell{Hyphenating all words}%
  1595. }
  1596.  
  1597. % Handle a long quotation in a standard way
  1598. \def\bigquote#1\endbigquote{%
  1599.     \par
  1600.     \vskip \baselineskip  \vskip -\parskip
  1601.     {   \advance\rightskip by30\p@
  1602.         \advance\leftskip by30\p@
  1603.     \smallertype
  1604.         \singlespace
  1605.     \let\\=\newline
  1606.     \noindent\llap{``}\ignorespaces#1\unskip''\par
  1607.     }% End of singlespacing and special indentation
  1608.     \vskip \baselineskip  \vskip -\parskip
  1609. }
  1610.  
  1611.  
  1612. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1613. %  CHAPTERS, SECTIONS, FIGURES, TABLES %
  1614. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1615.  
  1616. % What to do at the beginning of a chapter
  1617. \def\chapter#1\endchapter{
  1618.     \chapter@base #1\endchapter
  1619.     \oktell{Chapter \number\chapterno: #1}
  1620.     \content{Chapter \number\chapterno: #1}
  1621. }
  1622.  
  1623.  
  1624. % This boolean controls whether chapters are made to start only on
  1625. % odd pages.
  1626. \newif\ifoddpages
  1627. \oddpagesfalse
  1628. \def\twosided{%        This is the ``official'' command
  1629.     \oddpagestrue
  1630.     \oktell{Twosided mode}%
  1631. }
  1632.  
  1633. % The guts of the \chapter command.  \chapter==\chapter@base when
  1634. % in \articlestyle.
  1635. \def\chapter@base#1\endchapter{
  1636.     \par
  1637.     \clearpage                % Clean up from prev chapter
  1638.     \ifoddpages                % Make sure start on even page.
  1639.     \ifodd\pageno \relax \else \null\vfill\eject \fi
  1640.     \fi
  1641.     \pageno@foot            % Page #ing special for chap pages
  1642.     \advance\chapterno by\@ne
  1643.     \ifnumber@chapters
  1644.         \centerline{\chap@font CHAPTER \number\chapterno}% Do heading
  1645.     \fi
  1646.     \sectno=\z@
  1647.     \subsectno=\z@
  1648.     \subsubsectno=\z@
  1649.     {\let\\=\cr \tabskip=\z@ \chap@font    % Center the chapter title
  1650.      \halign to\hsize{\centerline{\ignorespaces##\unskip}\cr#1\cr}
  1651.     }
  1652.     \nobreak              % Shouldn't happen anyway
  1653.     \vskip 1.0in minus 0.15in
  1654. }
  1655.  
  1656. % What to do at the beginning of a section
  1657. \outer\def\section{\dosection}
  1658. \def\dosection#1{%
  1659.     \skip@=\lastskip        % \par resets \lastskip, apparently
  1660.     \par
  1661.     % This junk trys to provide consistent spacing
  1662.     \dimen@=\baselineskip
  1663.     \ifdim\skip@<\dimen@
  1664.     \ifdim\skip@=\z@
  1665.         \penalty-200
  1666.     \fi
  1667.     \vskip \dimen@ plus .5\baselineskip
  1668.     \fi
  1669.     \ifnumber@sections
  1670.     \advance\sectno by\@ne
  1671.     \subsectno=\z@
  1672.     \subsubsectno=\z@
  1673.     \leftline{\sec@font\number\sectno. #1}
  1674.     \else
  1675.     \leftline{\sec@font#1}
  1676.     \fi
  1677.     \subcontent{#1}
  1678.     \sanetell{ Section: #1}
  1679.     \nobreak
  1680.     \vskip \z@ plus .15\baselineskip
  1681.     \vskip -\parskip
  1682. }
  1683.  
  1684. % And for sub-sections
  1685. \outer\def\subsection{\dosubsection}
  1686. \def\dosubsection#1{%
  1687.     \skip@=\lastskip
  1688.     \par
  1689.     \dimen@=.6\baselineskip
  1690.     \ifdim\skip@<\dimen@
  1691.     \ifdim\skip@=\z@
  1692.         \penalty-100
  1693.     \fi
  1694.     \vskip \dimen@ plus .3\baselineskip
  1695.     \fi
  1696.     \ifnumber@sections
  1697.     \advance\subsectno by\@ne
  1698.     \subsubsectno=\z@
  1699.     \leftline{\subsec@font\number\sectno.\number\subsectno. #1}
  1700.     \else
  1701.     \leftline{\subsec@font#1}
  1702.     \fi
  1703.     \subsubcontent{#1}
  1704.     \sanetell{ \\Subsection: #1}
  1705.     \nobreak
  1706.     \vskip \z@ plus .1\baselineskip
  1707.     \vskip -\parskip
  1708. }
  1709.  
  1710. % And for sub-sub-sections
  1711. \outer\def\subsubsection{\dosubsubsection}
  1712. \def\dosubsubsection#1{%
  1713.     \skip@=\lastskip
  1714.     \par
  1715.     \dimen@=.5\baselineskip
  1716.     \ifdim\skip@<\dimen@
  1717.     \ifdim\skip@=\z@
  1718.         \penalty-50
  1719.     \fi
  1720.     \vskip \dimen@ plus .3\baselineskip
  1721.     \fi
  1722.     \ifnumber@sections
  1723.     \advance\subsubsectno by\@ne
  1724.     \leftline{\subsubsec@font\number\sectno.\number\subsectno
  1725.         .\number\subsubsectno. #1}
  1726.     \else
  1727.     \leftline{\subsubsec@font#1}
  1728.     \fi
  1729.     \subsubsubcontent{#1}
  1730.     \sanetell{ \\\\Subsubsection: #1}
  1731.     \nobreak
  1732.     \vskip -\parskip
  1733. }
  1734.  
  1735. % This is an alternate definition for plain TeX's \@ins,
  1736. % omitting the \par.  It is for use during \figure etc.  Reason:
  1737. % If you use \figure right after \section, it would otherwise
  1738. % become a legal place for a page break.
  1739. \def\@ins@uci{\begingroup\setbox\z@\vbox\bgroup}
  1740.  
  1741. % This is \endinsert from plain.tex, but \midinsert's are not converted
  1742. % to \topinsert's, since that can lead to figures getting out of order.
  1743. % This can lead to excessive blank space at the bottom of the page, but
  1744. % that's life.  Makes use of \keep...\endkeep type stuff.
  1745. \def\endinsert{\egroup % finish the \vbox
  1746.   \if@mid \dimen@\ht\z@ \advance\dimen@\dp\z@
  1747.     \advance\dimen@12\p@
  1748.     \vskip\z@ plus\dimen@
  1749.     \penalty\z@
  1750.     \vskip\z@ plus-\dimen@
  1751.     \bigskip\box\z@\bigbreak
  1752.   \else\insert\topins{\penalty100 % floating insertion
  1753.     \splittopskip\z@skip
  1754.     \splitmaxdepth\maxdimen \floatingpenalty\z@
  1755.     \ifp@ge \dimen@\dp\z@
  1756.     \vbox to\vsize{\unvbox\z@\kern-\dimen@}% depth is zero
  1757.     \else \box\z@\nobreak\bigskip\fi}\fi\endgroup}
  1758.  
  1759.  
  1760. % This macro provides rudamentary support for figures.  The
  1761. % argument to \figure is the name of the file containing the tpic (or whatever)
  1762. % output.  The second argument is the caption for the picture.
  1763. % As usual, TeX's delayed paging and midinserting causes expansion-timing
  1764. % problems which have to be kludged around.
  1765. \newif\iftopfigs \topfigstrue
  1766. \def\domidfigs{%
  1767.     \topfigsfalse
  1768.     \oktell{Midfigs mode}%
  1769. }
  1770.  
  1771. % Counters for figures/diagrams/examples and tables
  1772. \newcount\fignumber \fignumber=\@ne
  1773. \newcount\tablenumber \tablenumber=\@ne
  1774.  
  1775. % Helper for \figure, \example, and \diagram.  Define \lastfigure and
  1776. % \this@insert, increment the figure number for next time, and make sure
  1777. % the figures list file is open for writing.
  1778. % #1=the caption, to be written to the figures list file
  1779. \def\advance@figno#1{%
  1780.     \xdef\lastfigure{\the\fignumber}% Remember the current figure number
  1781.     \begingroup\no@cites
  1782.         \let\\=\space
  1783.     \xdef\this@insert{\write\noexpand\fig@file{\noexpand\noexpand
  1784.                 \noexpand\listfig{\lastfigure}{#1}%
  1785.                 {\noexpand\number\noexpand\pageno}%
  1786.               }%
  1787.     }%
  1788.     \endgroup
  1789.     \global\advance\fignumber by\@ne
  1790.     \iffig@closed        % Open figures file if not already
  1791.     \immediate\openout\fig@file=\figtitle
  1792.     \global\fig@closedfalse
  1793.     \fi
  1794. }
  1795.  
  1796. % Bump the table number after defining \lasttable.  Prepare \this@insert.
  1797. % Define \table@caption.
  1798. \def\advance@tablenumber#1{%
  1799.     \xdef\lasttable{\the\tablenumber}% Remember the current figure number
  1800.     \begingroup \no@cites \let\\=\space
  1801.     \xdef\this@insert{\write\noexpand\tab@file{\noexpand\noexpand
  1802.                 \noexpand\listfig{\lasttable}{#1}%
  1803.                 {\noexpand\number\noexpand\pageno}%
  1804.               }%
  1805.     }%
  1806.     \endgroup
  1807.     \global\advance\tablenumber by\@ne
  1808.     \gdef\table@caption{#1}%
  1809. }
  1810.  
  1811. \newif\ifpage@figs \page@figsfalse
  1812.  
  1813. % Special mode to put figures/diagrams/examples on separate pages
  1814. \def\pagefigs{%
  1815.     \oktell{Page Figures mode}%
  1816.     \page@figstrue
  1817. }
  1818.  
  1819. % Usage: \figure{filename}{caption with \\'s}
  1820. \def\figure#1#2{%
  1821.   \begingroup            % Hide anything that crazy user does!
  1822.     \advance@figno{#2}%
  1823.     % Now do mid or top insert as appropriate
  1824.     \let\@ins=\@ins@uci
  1825.     \ifpage@figs
  1826.     \shipout\vbox to\vsize\bgroup
  1827.         {\smallertype\rm\input #1\relax\centerline{\box\graph}}%
  1828.         \vfill
  1829.         \centerline{Figure \lastfigure}\this@insert
  1830.     \egroup
  1831.     \else \iftopfigs \topinsert \else \midinsert \fi
  1832.     \hrule
  1833.     \vskip .5\baselineskip
  1834.     {\smallertype\rm\input #1\relax\centerline{\box\graph}}%
  1835.     \vskip .5\baselineskip plus .5\baselineskip
  1836.     \centerline{\twelvebf Figure \lastfigure}%
  1837.     \this@insert
  1838.     \let\\=\cr \tabskip=\z@
  1839.     \halign to\hsize{\centerline{\ignorespaces##\unskip}\cr#2\cr}%
  1840.     \vskip2\p@
  1841.     \hrule
  1842.     \endinsert
  1843.     \fi
  1844.   \endgroup
  1845. }
  1846.  
  1847.  
  1848. % Allow user to specify arbitrary diagrams.  The arguments are:
  1849. % #1=name of the file containing the commands to form the diagram,
  1850. % #2=caption for the figure, possibly containing \\'s.
  1851. \def\diagram#1#2{%
  1852.   \begingroup
  1853.     \advance@figno{#2}%
  1854.     % Do mid or top insert as appropriate
  1855.     \let\@ins=\@ins@uci
  1856.     \ifpage@figs
  1857.     \shipout\vbox to\vsize\bgroup
  1858.         {\smallertype\rm\input #1\relax}%
  1859.         \vfill
  1860.         \centerline{\twelverm Figure \lastfigure}\this@insert
  1861.     \egroup
  1862.     \else \iftopfigs \topinsert \else \midinsert \fi
  1863.     \hrule
  1864.     \vskip .5\baselineskip
  1865.     {\smallertype\rm\input #1\relax}%
  1866.     \vskip .5\baselineskip plus .5\baselineskip
  1867.     \centerline{\twelvebf Figure \lastfigure}%
  1868.     \this@insert
  1869.     \let\\=\cr  \tabskip=\z@
  1870.     \halign to \hsize{\centerline{\ignorespaces##\unskip}\cr#2\cr}%
  1871.     \vskip2\p@
  1872.     \hrule
  1873.     \endinsert
  1874.     \fi
  1875.   \endgroup
  1876. }
  1877.  
  1878.  
  1879. % Allow user to include verbatim examples from files.  The arguments are:
  1880. % #1=name of the file containing the text of the example,
  1881. % #2=caption for the figure, possibly containing \\'s.
  1882. \def\example#1#2{%
  1883.   \begingroup
  1884.     \advance@figno{#2}%
  1885.     % Do mid or top insert as appropriate
  1886.     \let\@ins=\@ins@uci
  1887.     \ifpage@figs
  1888.     \shipout\vbox to\vsize\bgroup
  1889.         \vbox{\smallertype\singlespace\verbfile{#1}}%
  1890.         \vfill
  1891.         \centerline{\twelverm Figure \lastfigure}\this@insert
  1892.     \egroup
  1893.     \else \iftopfigs \topinsert \else \midinsert \fi
  1894.     \hrule
  1895.     \vskip .5\baselineskip
  1896.     \vbox{\smallertype\singlespace\verbfile{#1}}%
  1897.     \vskip .5\baselineskip plus .5\baselineskip
  1898.     \centerline{\twelvebf Figure \lastfigure}%
  1899.     \this@insert
  1900.     \let\\=\cr  \tabskip=\z@
  1901.     \halign to \hsize{\centerline{\ignorespaces##\unskip}\cr#2\cr}%
  1902.     \vskip2\p@
  1903.     \hrule
  1904.     \endinsert
  1905.     \fi
  1906.   \endgroup
  1907. }
  1908.  
  1909.  
  1910. % Similar thing for tables
  1911. % usage: \table{caption} ...text... \endtable
  1912. \def\table#1{%
  1913.   \begingroup            % Hide user zingers
  1914.     \advance@tablenumber{#1}%
  1915.     \setbox\z@=\vbox\bgroup
  1916. }
  1917.  
  1918.  
  1919. % End of the table body specification.
  1920. \def\endtable{%
  1921.     \egroup        % End the definition of \box0.
  1922.     % Now do top or mid insert
  1923.     \let\@ins=\@ins@uci
  1924.     \iftab@closed        % Open output file if necessary
  1925.     \immediate\openout\tab@file=\tabtitle
  1926.     \global\tab@closedfalse
  1927.     \fi
  1928.     \ifpage@figs
  1929.     \shipout\vbox to\vsize\bgroup
  1930.         \box\z@
  1931.         \vfill
  1932.         \centerline{\twelverm Table \lasttable}\this@insert
  1933.     \egroup
  1934.     \else \iftopfigs \topinsert \else \midinsert \fi
  1935.     \hrule
  1936.     \vskip .5\baselineskip
  1937.     \box\z@        % Insert the material here.
  1938.     \vskip .5\baselineskip plus .5\baselineskip
  1939.     \centerline{\twelvebf Table \lasttable}%
  1940.     \this@insert
  1941.     \let\\=\cr \tabskip=\z@
  1942.     \halign to\hsize{\centerline{\ignorespaces##\unskip}\cr\table@caption
  1943.              \cr}%
  1944.         \vskip2\p@
  1945.     \hrule
  1946.     \endinsert
  1947.     \fi
  1948.   \endgroup
  1949. }
  1950.  
  1951.  
  1952. % End of the table body specification for a full-page table.
  1953. \def\endtablepage{%
  1954.     \egroup        % End the definition of \box0.
  1955.     % Now do top or mid insert
  1956.     \let\@ins=\@ins@uci
  1957.     \iftab@closed        % Open output file if necessary
  1958.     \immediate\openout\tab@file=\tabtitle
  1959.     \global\tab@closedfalse
  1960.     \fi
  1961.     \ifpage@figs
  1962.     \shipout\vbox to\vsize\bgroup
  1963.         \box\z@
  1964.         \vfill
  1965.         \centerline{\twelverm Table \lasttable}\this@insert
  1966.     \egroup
  1967.     \else \pageinsert
  1968.     \hrule
  1969.     \vskip .5\baselineskip
  1970.     \box\z@        % Insert the material here.
  1971.     \vskip .5\baselineskip plus .5\baselineskip
  1972.     \centerline{\twelvebf Table \lasttable}%
  1973.     \this@insert
  1974.     \let\\=\cr \tabskip=\z@
  1975.     \halign to\hsize{\centerline{\ignorespaces##\unskip}\cr\table@caption
  1976.              \cr}%
  1977.         \vskip2\p@
  1978.     \hrule
  1979.     \endinsert
  1980.     \fi
  1981.   \endgroup
  1982. }
  1983.  
  1984. % Environment for report generation -- use only at the beginning!
  1985. % Since sections are the biggest division, the table of contents
  1986. % stuff is redefined, and chapter numbering is turned off so that
  1987. % \chapter can be used for the first-page title.  The title page
  1988. % gets no page number (page # 0).  The user can get to the
  1989. % normal chapter font as \titlefont, and the section font as
  1990. % \authorfont.
  1991. \def\articlestyle{%
  1992.     \nochapternumbers
  1993.     \let\subsubsubcontent=\subsubcontent
  1994.     \let\subsubcontent=\subcontent
  1995.     \let\subcontent=\content
  1996.     \let\chapter=\chapter@base
  1997.     \pageno=\z@
  1998.     \let\titlefont=\chap@font
  1999.     \let\authorfont=\sec@font
  2000.     \oktell{Articlestyle mode}%
  2001. }
  2002.  
  2003.  
  2004. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2005. %  PAGE NUMBERING and OUTPUT ROUTINES  %
  2006. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2007.  
  2008. % This macro produces a blank, numbered page of output
  2009. \def\blankpage{\pageinsert \null\vfill \endinsert}
  2010.  
  2011. % This defintion of \folio differs from Plain's in that (a) page
  2012. % numbers are printed in 12pt, and (b) roman numeral ones are
  2013. % printed in italics.  It makes use of a trick, that
  2014. % \romannumeral0 produces no output, which we need for title
  2015. % pages and things, so we make their page numbers be 0.
  2016. \def\folio{\ifnum\pageno>\z@
  2017.     {\twelverm\number\pageno}\else
  2018.     {\twelveit\romannumeral-\pageno}\fi
  2019. }
  2020.  
  2021. % Permanent definitions of macros which get switched in and out
  2022. % with \let's.  Do not change any of these !!!
  2023. \def\uci@headpage{\hfill\folio}
  2024. \def\uci@footpage{\hfill\folio\hfill}
  2025. \headline={\uci@headline}
  2026. \footline={\uci@footline}
  2027.  
  2028. % If this is used as the footline, it causes a page number to be
  2029. % printed, but with the side-effect of making the headline blank
  2030. % and the footline a page number again.  This is used on pages
  2031. % like the first of a chapter.
  2032. \def\no@foot{%
  2033.     \uci@footpage
  2034.     \global\let\uci@footline=\hfil
  2035.     \global\let\uci@headline=\uci@headpage
  2036. }
  2037.  
  2038. % This macro causes the page number to be at the bottom of the current
  2039. % page, and after it has been used there once, it moves to the
  2040. % top right of each page.  It also sets \dimen\topins=0pt so that
  2041. % any material \topinsert'd on these pages will get carried over
  2042. % to subsequent pages.
  2043. \def\pageno@foot{%
  2044.     \dimen\topins=\z@
  2045.     \let\uci@headline=\hfil
  2046.     \let\uci@footline=\no@foot
  2047. }
  2048.  
  2049. % Executing this causes page numbers to be at the bottom only, as
  2050. % with the plain TeX format.
  2051. \def\plain@page@numbers{%
  2052.     \let\uci@headline=\hfil    % Initial values similar to plain's
  2053.     \let\uci@footline=\uci@footpage
  2054. }
  2055.  
  2056. % Change plain's \makeheadline and \makefootline to position page
  2057. % numbers as required.
  2058. \def\makeheadline{%
  2059.     \vbox to\z@{\vskip-22.65\p@
  2060.     \line{\vbox to8.5\p@{}\the\headline}\vss}\nointerlineskip
  2061. }
  2062. \def\makefootline{\baselineskip=1.6cm\line{\the\footline}}
  2063.  
  2064. % Define an output routine which will restore \dimen\topins
  2065. % after \chapter, \references, etc, title pages, which have
  2066. % \dimen\topins=0pt
  2067. \def\dissoutput{\shipout\vbox{\makeheadline\pagebody\makefootline}%
  2068.     \advancepageno \global\dimen\topins=\vsize
  2069.     \ifnum\outputpenalty>-\@MM \else\dosupereject\fi
  2070. }
  2071. \let\output@AmS=\dissoutput
  2072. \dimen\topins=\vsize    % Don't insert more than will fit on one page
  2073.  
  2074. % Output Routines: We adjust the \raggedbottom command of plain
  2075. % TeX so that the extra space is no more than 1in, and so that
  2076. % the space is put above footnotes instead of below.  NOTE: Since
  2077. % we put a \vfil below the page contents, the topskip glue will
  2078. % never actually be stretched.  Its stretchability is just to
  2079. % let TeX know about the raggedness in computing when to make a
  2080. % page break.  Since it's 1in, the \vfil will never be stretched to
  2081. % more than that amount.
  2082.  
  2083. \def\raggedbottom{\topskip=\normal@topskip plus1in \r@ggedbottomtrue
  2084.     \oktell{Ragged bottom mode}}
  2085. \def\normalbottom{\topskip=\normal@topskip\r@ggedbottomfalse
  2086.     \oktell{Normal bottom mode}}
  2087.  
  2088. \def\pagecontents{%
  2089.     \ifvoid\topins\else\unvbox\topins\fi
  2090.     \dimen@=\dp\@cclv \unvbox\@cclv    % open up \box255
  2091.     \ifr@ggedbottom \kern-\dimen@ \vfil\fi
  2092.     \ifvoid\footins \else        % footnote info is present
  2093.     \vskip\skip\footins
  2094.     \footnoterule
  2095.     \unvbox\footins
  2096.     \fi
  2097. }
  2098.  
  2099.  
  2100. %%%%%%%%%%%%%%%%%%%%
  2101. %  INITIALIZATION  %
  2102. %%%%%%%%%%%%%%%%%%%%
  2103.  
  2104. \font@no=0            % Default font=\rm,
  2105. \twelvepoint            % point size,
  2106. \doublespace            % and spacing
  2107. \plain@page@numbers        % Page nos like plain's
  2108.  
  2109. % Note that normally in AmSTeX, the @ character may not be used.
  2110. % But in the dissertation style, @ may be used as a normal character,
  2111. % As it can in plain TeX.
  2112. \catcode`\@=12
  2113.  
  2114. % Eat any further \documentstyle commands
  2115. \def\documentstyle#1{}
  2116.  
  2117. % This prints out our welcome message, and it computes the time
  2118. % and date string once per run, which saves time if they're used
  2119. % more than once.  Since \catcode`@=12 at the time this is
  2120. % executed, it can't contain any @-type macros.
  2121. \everyjob={%
  2122.     \begingroup
  2123.     \xdef\today{%
  2124.         \ifcase\month
  2125.         \the\month\or
  2126.         January\or
  2127.         February\or
  2128.         March\or
  2129.         April\or
  2130.         May\or
  2131.         June\or
  2132.         July\or
  2133.         August\or
  2134.         September\or
  2135.         October\or
  2136.         November\or
  2137.         December\else
  2138.         \the\month
  2139.         \fi\space\the\day, \the\year
  2140.     }%
  2141.     \count0=\time
  2142.     \count1=\count0
  2143.     \divide\count0by60
  2144.     \count2=\count0
  2145.     \multiply\count0by60
  2146.     \advance\count1by-\count0
  2147.     \ifnum\count2>11
  2148.         \ifnum\count2>12 \advance\count2by-12\fi
  2149.         \def\ampm{PM}%
  2150.     \else
  2151.         \ifnum\count2=0 \advance\count2by12\fi
  2152.         \def\ampm{AM}%
  2153.     \fi
  2154.     \xdef\daytime{%
  2155.         \ifnum\count2<10 0\fi \the\count2:%
  2156.         \ifnum\count1<10 0\fi \the\count1
  2157.         \ampm
  2158.     }%
  2159.     \endgroup
  2160.     \tell{AmSTeX Dissertation Style, version \version}%
  2161. }
  2162.  
  2163. \edef\temp@uci{\the\everyjob}
  2164. \temp@uci
  2165.